home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / create6r / frmchat.frm (.txt) < prev    next >
Visual Basic Form  |  1999-06-05  |  3KB  |  92 lines
  1. VERSION 5.00
  2. Begin VB.Form frmchat 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00FFFFFF&
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "Chess Chat"
  7.    ClientHeight    =   3195
  8.    ClientLeft      =   540
  9.    ClientTop       =   495
  10.    ClientWidth     =   5670
  11.    Icon            =   "frmchat.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   213
  16.    ScaleMode       =   3  'Pixel
  17.    ScaleWidth      =   378
  18.    Begin VB.ListBox List1 
  19.       BackColor       =   &H80000002&
  20.       ForeColor       =   &H80000009&
  21.       Height          =   2040
  22.       Left            =   150
  23.       TabIndex        =   1
  24.       Top             =   465
  25.       Width           =   5355
  26.    End
  27.    Begin VB.TextBox Text1 
  28.       BackColor       =   &H80000002&
  29.       BeginProperty Font 
  30.          Name            =   "MS Sans Serif"
  31.          Size            =   9.75
  32.          Charset         =   0
  33.          Weight          =   700
  34.          Underline       =   0   'False
  35.          Italic          =   0   'False
  36.          Strikethrough   =   0   'False
  37.       EndProperty
  38.       ForeColor       =   &H80000009&
  39.       Height          =   375
  40.       Left            =   150
  41.       TabIndex        =   0
  42.       Top             =   2655
  43.       Width           =   5350
  44.    End
  45.    Begin VB.Label Label1 
  46.       BackStyle       =   0  'Transparent
  47.       Caption         =   "Chat window"
  48.       BeginProperty Font 
  49.          Name            =   "Times New Roman"
  50.          Size            =   14.25
  51.          Charset         =   0
  52.          Weight          =   700
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       ForeColor       =   &H80000002&
  58.       Height          =   375
  59.       Left            =   600
  60.       TabIndex        =   2
  61.       Top             =   75
  62.       Width           =   2895
  63.    End
  64. Attribute VB_Name = "frmChat"
  65. Attribute VB_GlobalNameSpace = False
  66. Attribute VB_Creatable = False
  67. Attribute VB_PredeclaredId = True
  68. Attribute VB_Exposed = False
  69. Private Sub Form_Load()
  70. OutSquare 0, 0, ScaleWidth - 1, ScaleHeight, Me
  71. InSquare List1.Left, List1.Top, List1.Width - 1, List1.Height, Me
  72. InSquare Text1.Left, Text1.Top, Text1.Width - 1, Text1.Height, Me
  73. PaintPicture frmChess.Image2.Picture, 15, 5
  74. PaintPicture frmChess.Image2.Picture, ScaleWidth - 35, 5
  75. 'Left = frmChess.Left + frmChess.Width
  76. 'Top = frmChess.Top + ((frmChess.Height - Height) / 2)
  77. End Sub
  78. Private Sub Text1_KeyPress(KeyAscii As Integer)
  79. On Error Resume Next
  80. If KeyAscii = 13 And Trim(Text1.Text) <> "" Then
  81.   KeyAscii = 0
  82.   List1.AddItem NickName & " Say >> " & Text1.Text
  83.   List1.ListIndex = List1.ListCount - 1
  84.   If Connected Then
  85.     If frmChess.SockClient.State = 7 Then
  86.       frmChess.SockClient.SendData "#010text#" & Text1.Text
  87.     End If
  88.   End If
  89.   Text1.Text = ""
  90. End If
  91. End Sub
  92.